home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 May / MacHome CD (May 2001).iso / mac / Stuff / Software / Graphic / iView Multimedia 3.8.6 / AppleScript Support / set desktop with marked file < prev    next >
Encoding:
Text File  |  2000-01-31  |  670 b   |  23 lines  |  [TEXT/ToyS]
  1. tell application "iView Multimedia"
  2.     tell window 1
  3.         copy (the path of the first object whose mark id is not 0) to mymarked
  4.     end tell
  5.     
  6. end tell
  7.  
  8. on set_desktop_pic(file_path)
  9.     tell application "Appearance"
  10.         launch
  11.         if file_path is "no picture" then
  12.             set picture file of monitor 1 to no picture
  13.         else
  14.             display dialog "choose the monitor to place the picture on" buttons {"1", "2"} default button 1
  15.             set theButton to (button returned of the result)
  16.             set picture file of monitor (theButton as number) to file file_path
  17.             set picture positioning of monitor (theButton as number) to scaled
  18.         end if
  19.         quit
  20.     end tell
  21. end set_desktop_pic
  22.  
  23. set_desktop_pic(mymarked)